DEFINE CLASS negsocio as custom

	FUNCTION nosuperalimite as Boolean
		ds = NEWOBJECT("datasocios","capadatos.prg")
		
		IF ds.cantidad() <= 2000 THEN
			RETURN .T.
		ELSE 
			RETURN .F.
		ENDIF 
	ENDFUNC 
	
	FUNCTION existesocio as Boolean
		PARAMETERS nom, ape
		ds = NEWOBJECT("datasocios","capadatos.prg")
		RETURN ds.existesocio(nom,ape)
	ENDFUNC	
	
*!*		FUNCTION buscasocio as Boolean
*!*	*!*			PARAMETERS pNombre, pApellido 
*!*	*!*			ds = NEWOBJECT("datasocios","data.prg")
*!*	*!*			RETURN ds.existesocio(pNombre,pApellido)
*!*		ENDFUNC
	FUNCTION getall as Cursor
		ds = NEWOBJECT("datasocios","c:\versionfunciona\capanegocio\capadatos.prg")
		RETURN ds.getall()	
	ENDFUNC
	
	FUNCTION tienedeuda as Cursor
		PARAMETERS bid_socio
		ds = NEWOBJECT("datasancion","capadatos.prg")
		RETURN ds.getonesocio(bid_socio)
	ENDFUNC


ENDDEFINE

DEFINE CLASS negprestamo as custom

	

ENDDEFINE